(texinfo-format-buffer): Bind coding-system-for-write, to avoid hanging when

non-interactive.

diff --git a/lisp/textmodes/texinfmt.el b/lisp/textmodes/texinfmt.el
index b1653ffa366fd821089ba1add38c8d6ae9d15f08..101737227b2cd90f1717ee659c7d8b5b486506a1 100644 (file)
--- a/lisp/textmodes/texinfmt.el
+++ b/lisp/textmodes/texinfmt.el
@@ -113,7 +113,8 @@ Non-nil argument (prefix, if interactive) means don't make tag table
 and don't split the file if large.  You can use Info-tagify and
 Info-split to do these manually."
   (interactive "P")
-  (let ((lastmessage "Formatting Info file..."))
+  (let ((lastmessage "Formatting Info file...")
+       (coding-system-for-write buffer-file-coding-system))
     (message lastmessage)
     (widen)
     (texinfo-format-buffer-1)